home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 November / 1993-11.d64 / cipher boot (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  41 lines
  1. 100 dv=peek(186):if dv<8 then dv=8
  2. 110 poke53280,14:poke53281,14:print"[147]"
  3. 120 poke214,10:print
  4. 130 print"[158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  5. 140 fora=1to12:print"[221]"spc(38)"[221]";:next
  6. 150 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
  7. 160 rem reset screen line link table
  8. 170 fora=217to242:pokea,peek(a)or128:next
  9. 180 poke214,9
  10. 190 print"":m$="[158][221]          [195][207][205][208][213][212][197]'s [199]azette:"
  11. 200 fort=28to1step-1:print"[145]"mid$(m$,t):gosub380:nextt:gosub400
  12. 210 print"                               "
  13. 220 print"        [212]he [213]nbreakable [195]ipher  ":gosub400
  14. 230 print"                                "
  15. 240 print"          by [202]ames [212]. [202]ones     ":gosub400
  16. 250 print"                                "
  17. 260 print"          ([195])opyright  1993     ":gosub400
  18. 270 print"                                "
  19. 280 print"                                "
  20. 290 print"":n$="[158][221]      [208]ress <space> to continue"
  21. 300 fort=30to1step-1:print"[145]"mid$(n$,t):gosub380:nextt:gosub400
  22. 310 x=int(rnd(0)*15)+1:y=int(rnd(0)*15):z=int(rnd(1)*15)+1:u=int(rnd(1)*15)+1
  23. 320 v=55747:pokev,x:pokev+1,y:pokev+2,z:pokev+3,u:pokev+4,x:pokev+5,y
  24. 330 pokev+6,z:pokev+7,u:pokev+9,x:pokev+10,y:pokev+11,z:pokev+12,u:pokev+13,x
  25. 340 pokev+14,u:pokev+15,y:pokev+16,z:pokev+17,u:pokev+18,x:fort=1to100:next
  26. 350 geta$:ifa$<>" "then310
  27. 360 goto430 
  28. 370 geta$:ifa$<>" "then370
  29. 380 s=54272:forl=0to24:pokes+l,0:nextl:pokes+22,128:pokes+21,0:pokes+23,1
  30. 390 pokes+1,255:pokes+5,5:pokes+15,130:pokes+24,79:pokes,240:pokes+4,129:return
  31. 400 s=54272:forl=0to24:pokes+l,0:nextl
  32. 410 pokes+1,70:pokes+5,9:pokes+15,70:pokes+24,15:pokes+4,21:fort=1to300:next
  33. 420 pokes+4,20:fort=1to300:next:return
  34. 430 poke214,09
  35. 440 print""+"[158][221][144]          [195][207][205][208][213][212][197]'s [199]azette:"
  36. 450 poke214,20
  37. 460 print""+"[158][221][159]      [204]oading....[208]lease standby..."
  38. 470 poke646,peek(53281):q$=chr$(34)
  39. 480 print"load"q$"unbrkable cipher"q$","dv:print"run"
  40. 490 poke631,13:poke632,13:poke198,2:end
  41.